﻿Imports EguSoc_Dll

Public Class FES_Socios_Sobres
    Private TA_Sobres_Permisos As New V_Socios_en_Sobre_TableAdapter
    Private _Sobre As Integer

    <System.ComponentModel.Description("Sobre"), _
    System.ComponentModel.RefreshPropertiesAttribute(System.ComponentModel.RefreshProperties.All)>
    Public Property Sobre As Integer
        Get
            Return _Sobre
        End Get
        Set(ByVal value As Integer)
            _Sobre = value
        End Set
    End Property

    Private Sub FES_Socios_Sobres_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            TA_Sobres_Permisos.Fill(DSEA.V_Socios_en_Sobre, _Sobre)
        Catch ex As Exception
            MessageBox.Show(Err.Description)
        End Try
    End Sub

    Private Sub BtnAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAceptar.Click
        Try
            TA_Sobres_Permisos.Guardar_Datos(DSEA.V_Socios_en_Sobre, Sobre)
            Me.Close()
        Catch ex As Exception
            MessageBox.Show(Err.Description)
        End Try
    End Sub
End Class